home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 2 / Gekikoh Dennoh Club Vol. 2 (Japan).7z / Gekikoh Dennoh Club Vol. 2 (Japan) (Track 01).bin / games / px3 / etc / ektopx0.bas next >
BASIC Source File  |  1997-09-19  |  6KB  |  115 lines
  1. /*  Oh!X '95/8 PICTﾊﾟｽﾞﾙ ﾓﾝﾀﾞｲﾌｧｲﾙ ｶﾗ "PX" ﾖｳ ﾓﾝﾀﾞｲﾌｧｲﾙ ﾆ ﾍﾝｶﾝｽﾙ ﾌﾟﾛｸﾞﾗﾑ
  2. /*  ﾌｧｲﾙﾈｰﾑ "EMAP_E.DAT" ｦ ｶﾚﾝﾄ ﾆ ｵｲﾃ ｼﾞｯｺｳｼﾃｸﾀﾞｻｲ
  3. int i,j,k,fp
  4. char xsize,ysize
  5. char bitp0,bitp1
  6. dim char ek_map(40601),ek_name(6059)
  7. dim char px_dat(51199)
  8. dim char work(399)
  9. dim int  def_palet(7)={2114,30844,22420,3964,55362,59516,61314,63420}
  10. dim char nam(1600)={
  11. &HFF,&HFF,&HFF,&HFF,&HFF,&H99,&HA8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  12. &HFF,&HFF,&HFF,&HFF,&H48,&H50,&HF8,&H6F,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  13. &HFF,&HFF,&HFF,&HFF,&HA3,&H9D,&H9F,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  14. &HFF,&HFF,&HFF,&HFF,&HFF,&HB2,&HA3,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  15. &HFF,&HFF,&HFF,&HFF,&HFF,&HB6,&HC0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  16. &HFF,&HFF,&HFF,&HFF,&H8C,&H6D,&H53,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  17. &HFF,&HFF,&HFF,&HFF,&HFF,&HBB,&HB6,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  18. &HFF,&HFF,&HFF,&HFF,&HFF,&H4A,&H6F,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  19. &HFF,&HFF,&HFF,&HFF,&HFF,&HA,&HE0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  20. &HFF,&HFF,&HFF,&HFF,&HFF,&H9A,&H9B,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  21. &HFF,&HFF,&HFF,&HFF,&HFF,&HA1,&HB6,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  22. &HFF,&HFF,&HFF,&HFF,&H9B,&HC5,&HDC,&HA9,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  23. &HFF,&HFF,&HFF,&H66,&H5C,&H83,&H3F,&H53,&H4E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  24. &HFF,&HFF,&HFF,&HFF,&HB1,&H98,&HAB,&H1,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  25. &HFF,&HFF,&HFF,&HFF,&HFF,&H9F,&H99,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  26. &HFF,&HFF,&HA2,&H9E,&HC3,&HC1,&H53,&H8C,&HF8,&H74,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  27. &HFF,&HFF,&HFF,&HFF,&H8A,&H46,&H84,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  28. &HFF,&HFF,&HFF,&HFF,&H6D,&H4F,&H46,&H5A,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  29. &HFF,&HFF,&HFF,&HA8,&H96,&H9A,&HA8,&HC5,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  30. &HFF,&HFF,&HFF,&HFF,&HA7,&HB6,&HCB,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  31. &HFF,&HFF,&HA3,&HBF,&H96,&H9F,&HA0,&HC5,&HA2,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  32. &HFF,&H47,&H68,&H6E,&H4C,&H74,&H4E,&H6D,&H46,&H4C,&HF8,&HFF,&HFF,&HFF,&HFF,&HFF,
  33. &HFF,&HFF,&HFF,&HFF,&HA1,&HB0,&HB1,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  34. &HFF,&HFF,&HFF,&HFF,&HA7,&HB6,&HAF,&HC8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  35. &HFF,&HFF,&HFF,&HFF,&HBA,&HC5,&HA4,&HA7,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  36. &HFF,&HFF,&HFF,&HFF,&H56,&H48,&H6A,&H4D,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  37. &HFF,&HFF,&HFF,&HFF,&HA8,&HBF,&HAB,&HBF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  38. &HFF,&HFF,&HFF,&HFF,&HFF,&HB4,&HD7,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  39. &HFF,&HFF,&HFF,&HFF,&HA7,&HA0,&H9A,&HB6,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  40. &HFF,&HFF,&HFF,&HFF,&HA9,&HB7,&H9E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  41. &HFF,&HFF,&HFF,&HFF,&HB1,&HAD,&H94,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  42. &HFF,&HFF,&HA0,&H99,&HA7,&H99,&HD4,&HC5,&HC3,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  43. &HFF,&HFF,&HFF,&HFF,&HFF,&HAC,&HA4,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  44. &HFF,&H8C,&H6D,&H78,&HAB,&H50,&H74,&H54,&H74,&H5A,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  45. &HFF,&HFF,&HFF,&HFF,&HFF,&H21,&HE0,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  46. &HFF,&HFF,&HFF,&HFF,&H8B,&H5F,&H4D,&H4B,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  47. &HFF,&HFF,&HFF,&HFF,&HFF,&H9E,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  48. &HFF,&HFF,&HFF,&HFF,&HFF,&H9D,&HB9,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  49. &HFF,&HFF,&HFF,&H57,&H44,&HF8,&H6E,&H46,&H8C,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  50. &HFF,&HFF,&HFF,&HFF,&H1E,&HF,&H18,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  51. &HFF,&HFF,&HFF,&H9D,&HCC,&HC9,&HC0,&HB6,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  52. &HFF,&HFF,&HFF,&HFF,&HFF,&H9D,&H9C,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  53. &HFF,&HFF,&H51,&H46,&H4C,&HF8,&H89,&HF8,&H6F,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  54. &HFF,&HFF,&HFF,&HFF,&HAC,&HC7,&HC9,&HA9,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  55. &HFF,&HFF,&H50,&HF8,&H61,&HF8,&H4C,&H46,&H8C,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  56. &HFF,&HC3,&HC5,&HDB,&H9F,&H62,&H6E,&H46,&H8A,&HF8,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  57. &HFF,&HFF,&HFF,&H51,&H74,&H78,&H6D,&H53,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  58. &HFF,&HFF,&HFF,&HFF,&HA0,&HA9,&H98,&HCB,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  59. &HFF,&HFF,&HFF,&HFF,&H9E,&HB0,&HA1,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,
  60. &HFF,&HFF,&HFF,&HFF,&H66,&H51,&H48,&H6F,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF,&HFF}
  61.  
  62. /*--------
  63. fp=fopen("emap_e.dat","r")
  64. fread(ek_map,40602,fp)
  65. fclose(fp)
  66.  
  67. for i=0 to 99
  68.     print using"STAGE:###";i+1
  69.     print chr$(&H1E);
  70.  
  71. /* -: ﾓﾝﾀﾞｲ ｻｲｽﾞ :-
  72.     xsize=ek_map(i*402+402    )
  73.     ysize=ek_map(i*402+402+  1)
  74.     px_dat((i shl 9)    )=ek_map(i*402+402    )
  75.     px_dat((i shl 9)+  1)=ek_map(i*402+402+  1)
  76.  
  77. /* -: ﾀｲﾄﾙ :-
  78.     for j=0 to 15
  79.         px_dat((i shl 9)+  2+j)=nam((i shl 4)+j)
  80.     next
  81.  
  82. /* -: ﾊﾟﾚｯﾄ :-
  83.     for j=0 to 7
  84.         k=def_palet(j)
  85.         px_dat((i shl 9)+ 18+(j shl 1))=k shr 8
  86.         px_dat((i shl 9)+ 19+(j shl 1))=k and 255
  87.     next
  88.  
  89. /* -: ﾚｺｰﾄﾞ :-
  90.     px_dat((i shl 9)+ 36)=&H00
  91.     px_dat((i shl 9)+ 37)=&H05
  92.     px_dat((i shl 9)+ 38)=&H7E
  93.     px_dat((i shl 9)+ 39)=&H3F
  94.  
  95. /* -: ﾓﾝﾀﾞｲ ﾃﾞｰﾀ :-
  96.     for j=0 to 399 : work(j)=0 : next
  97.     for j=0 to ysize-1
  98.     for k=0 to xsize-1
  99.         work(j*20+k)=ek_map(i*402+402+  2+j*xsize+k)
  100.     next
  101.     next
  102.     for k=0 to 19
  103.     for j=0 to 9
  104.         if work(k*20+j*2) = 0 then bitp0=14 else bitp0=1
  105.         if work(k*20+j*2+1) = 0 then bitp1=14 else bitp1=1
  106.         px_dat((i shl 9)+ 62+ k*15+j)=(bitp0 shl 4)+bitp1
  107.     next
  108.     next
  109. next
  110.  
  111. /* -: ｾｰﾌﾞ :-
  112. fp=fopen("PX_STG3.DAT","c")
  113. fwrite(px_dat,51200,fp)
  114. fcloseall()
  115.